﻿Partial Public Class InstallPage
    Inherits Page

    Public Sub New()
        InitializeComponent()
    End Sub

    'ユーザーがこのページに移動したときに実行されます。
    Protected Overrides Sub OnNavigatedTo(ByVal e As System.Windows.Navigation.NavigationEventArgs)

    End Sub

    Private Sub InstallButton_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        If App.Current.InstallState = InstallState.NotInstalled Then
            Application.Current.Install()
        Else
            MessageBox.Show("インストール済みです。スタートメニューから起動してください。")
        End If
    End Sub

End Class
